Création d'un programme gambas2 pas à pas,
un répertoire telephonique

Origine : http://listingambas.blogspot.com/2011/06/introducir-datos-textos.html

Saisie de données : textes

SetFocus
Pour saisir les données il nous faut nous déplacer dans la zone de texte.
Si vous cliquez sur l'onglet hiérarchie : (sur la figure 1 de la vue de l'IDE, zone rouge du point 4)

Vous pouvez commander, par les touches flèches haut et bas, l'ordre des contrôles qui sera suivi lorsque vous appuierez, à l'éxécution, sur la touche de tabulation.
Pour obtenir le même effet lors de l'appui sur "Enter" ou "Retour" (faire passer à la zone de texte suivante-celle qui nous intéresse pour l'entrée des données) on doit utiliser le "code" suivant :

PUBLIC SUB TextBoxOuNousSommes_KeyPress ()
IF Key code = Key enter OR Key code = Key Return THEN
TextBoxSuivante <.SetFocus
ENDIF
END

Dans lequel "TextBoxOuNousSommes" est celle où est le curseur actuellement et "TextBoxSuivante" est celle où on veux le diriger lorsque l'on quitte la zone de texte

Dans notre programme il y aura finalement le code suivant :

PUBLIC SUB TextBoxDNI_KeyPress()
IF Key. code = Key. enter OR Key. code = Key. Return THEN
TextBoxNom. SetFocus
ENDIF
END

PUBLIC SUB TextBoxNom_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxPrenoms. SetFocus
ENDIF
END

PUBLIC SUB TextBoxPrenoms_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxEntreprise. SetFocus
ENDIF
END

PUBLIC SUB TextBoxEntreprise_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxPoste. SetFocus
ENDIF
END

PUBLIC SUB TextBoxPoste_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxTelEntreprise. SetFocus
ENDIF
END

PUBLIC SUB TextBoxTelEntreprise_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxMobilEntreprise. SetFocus
ENDIF
END

PUBLIC SUB TextBoxMobilEntreprise_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxTelPerso. SetFocus
ENDIF
END

PUBLIC SUB TextBoxTelPerso_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxMobilePerso. SetFocus
ENDIF
END

PUBLIC SUB TextBoxMobilPerso_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxFax. SetFocus
ENDIF
END

PUBLIC SUB TextBoxFax_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxMail. SetFocus
ENDIF
END

PUBLIC SUB TextBoxMail_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxDate. SetFocus
ENDIF
END

PUBLIC SUB TextBoxDate_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxWEB. SetFocus
ENDIF
END

PUBLIC SUB TextBoxWEB_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxAdresse. SetFocus
ENDIF
END

PUBLIC SUB TextBoxAdresse_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
TextBoxComments. SetFocus
ENDIF
END

PUBLIC SUB TextBoxComments_KeyPress ()
IF Key.code = Key. enter OR Key. code = Key. Return THEN
BoutonAcceper. SetFocus
ENDIF
END